Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/fbr12c/register.frm

Text File | 1995-09-06 | 6KB | 186 lines

VERSION 2.00
Begin Form Register
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Please Register"
   ClientHeight    =   5610
   ClientLeft      =   3555
   ClientTop       =   1500
   ClientWidth     =   4365
   ControlBox      =   0   'False
   Height          =   6015
   Left            =   3495
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5610
   ScaleWidth      =   4365
   Top             =   1155
   Width           =   4485
   Begin CommandButton BtnExit
      Caption         =   "&I Agree"
      Height          =   330
      Left            =   2160
      TabIndex        =   10
      Top             =   5010
      Width           =   1920
   End
   Begin CommandButton BtnAgree
      Caption         =   "&No Thanks"
      Height          =   330
      Left            =   255
      TabIndex        =   9
      Top             =   5010
      Width           =   1920
   End
   Begin PictureBox Picture1
      Height          =   4530
      Left            =   255
      ScaleHeight     =   4500
      ScaleWidth      =   3795
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   255
      Width           =   3825
      Begin Label Label9
         Alignment       =   2  'Center
         Caption         =   "I thank you. My family thanks you."
         Height          =   240
         Left            =   30
         TabIndex        =   11
         Top             =   4200
         Width           =   3735
      End
      Begin Label Label10
         Alignment       =   2  'Center
         Caption         =   "(Registration gets rid of this reminder!)"
         Height          =   255
         Left            =   45
         TabIndex        =   12
         Top             =   3870
         Width           =   3720
      End
      Begin Label Label7
         Alignment       =   2  'Center
         Caption         =   "The author grants you license to try it out for a period of 30 days. At the end of this period you must register, or else destroy all copies in your possession.  See the FBRUNWAY.WRI file for details."
         Height          =   1035
         Left            =   15
         TabIndex        =   7
         Top             =   2820
         Width           =   3765
      End
      Begin Label Label8
         Alignment       =   2  'Center
         Caption         =   "This program is Shareware!"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   -1  'True
         Height          =   255
         Left            =   45
         TabIndex        =   8
         Top             =   2520
         Width           =   3720
      End
      Begin Label Label6
         Alignment       =   2  'Center
         Caption         =   "Compuserve ID: 76646,2552"
         Height          =   240
         Left            =   15
         TabIndex        =   6
         Top             =   2250
         Width           =   3735
      End
      Begin Label Label2
         Alignment       =   2  'Center
         Caption         =   "More Homegrown Software from Marshal Bostwick."
         Height          =   435
         Left            =   540
         TabIndex        =   5
         Top             =   1830
         Width           =   2700
      End
      Begin Label Label4
         Alignment       =   2  'Center
         Caption         =   " A Multi-Option, User-Configurable Run and Load Utility for Windows. Now with WIN.INI Extensions support and editor!"
         Height          =   600
         Left            =   30
         TabIndex        =   4
         Top             =   1155
         Width           =   3735
      End
      Begin Label Label5
         Alignment       =   2  'Center
         Caption         =   "  (son of FileBoy's Runner)  "
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   -1  'True
         Height          =   255
         Left            =   45
         TabIndex        =   1
         Top             =   825
         Width           =   3735
      End
      Begin Label Label1
         Alignment       =   2  'Center
         Caption         =   "Runway 1.2c"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Serif"
         FontSize        =   13.5
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   405
         Left            =   45
         TabIndex        =   2
         Top             =   360
         Width           =   3735
      End
      Begin Label Label3
         Alignment       =   2  'Center
         Caption         =   "             FileBoy's            "
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   -1  'True
         Height          =   255
         Left            =   45
         TabIndex        =   3
         Top             =   45
         Width           =   3735
      End
   End
End
DefInt A-Z

Sub BtnAgree_Click ()
    Unload Register
    Unload FBRunway
    End
End Sub

Sub BtnExit_Click ()
    Unload Register
End Sub

Sub Form_Load ()
    BtnExit.Default = True
    Register.Left = (Screen.Width - Register.Width) / 2
    Register.Top = (Screen.Height - Register.Height) / 3
End Sub

Sub Form_Paint ()
    FrameFrm Register
    FrameCtrl Register, Picture1, Picture1, Picture1, Picture1
    FrameCtrl Register, BtnAgree, BtnAgree, BtnAgree, BtnExit
End Sub